home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / zsearchd.d < prev    next >
Text File  |  1997-10-26  |  1KB  |  35 lines
  1. DEFINITION MODULE ZSearchDial;
  2.  
  3. IMPORT SearchHelp;
  4.  
  5. CONST FASTAHEAD = 0; FASTBACK = 1;
  6.  
  7. PROCEDURE DoSearchDial(forList: BOOLEAN):INTEGER;
  8. (* Ruft die Suchbox auf; Rckgabe < 0 -> User hat Abbruch gedrckt *)
  9. (* sonst noch m”glich: FASTAHEAD, FASTBACK *)
  10.  
  11. PROCEDURE SearchDial(VAR suchVar : SearchHelp.SearchRecordType;
  12.                      forList : BOOLEAN):INTEGER;
  13.  
  14. (* Die Vars sind gleichzeitig Eingabeparameter, damit werden die einzelnen
  15.    Punkte gefllt, muž dem alten Aussehen entsprechen *)
  16. (* wo1..wo4 und verkn1..verkn3 werden gem„ž SearchHelp belegt!  *)
  17. (* Rckgabewert gibt an, wie gestartet werden soll:             *)
  18. (* FASTAHEAD = Schnellstart vorw„rts    *)
  19. (* FASTBACK  = Schnellstart rckw„rts   *)
  20. (* sonstige positive Werte: kein Start  *)
  21. (* Rckgabe < 0 -> Abbruch              *)
  22.  
  23. PROCEDURE InitMenuStr():BOOLEAN;
  24.  
  25. TYPE DialAction = (ChangeMsg, ChangeTree, ChangeTreeDown, ChangeSelected);
  26. TYPE DialActionSet = SET OF DialAction;
  27.  
  28. PROCEDURE FlagDial(possible : DialActionSet; 
  29.                    VAR setBits, clearBits : BITSET;
  30.                    VAR whatAction : DialAction):BOOLEAN;
  31. (* Fr die Flagaktionen. Gibt zurck, ob der User ok angew„hlt hat und den Status   *)
  32. (* der Bits sowie die ber die Radiobuttons gew„hlte Aktion                         *)
  33.  
  34. END ZSearchDial.
  35.